home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / injidate.prg < prev    next >
Text File  |  1991-10-18  |  1KB  |  56 lines
  1. ********  印刷 ( 検索 年/月/日 ) ********
  2. ************  INJIDATE.PRG  *************
  3. SET CONSOLE OFF
  4. WAIT
  5. SET CONSOLE ON
  6. SET DEVICE TO PRINT
  7.  
  8. GOTO TOP
  9. SEEK DTOC(MDY)
  10.  
  11. IF EOF()
  12. GOTO TOP
  13. LOCATE FOR MMDDYY>MDY .AND. MMDDYY<=MDYE
  14. ENDIF
  15.  
  16. DO WHILE .NOT. EOF() && *********************************1
  17.     @ 1,2   SAY "交信月日"
  18.     @ 1,15 SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム     印刷DATE.PRG"
  19.     @ 2,2   SAY MDY
  20.     @ 2,15 SAY "===========================================   "
  21.     @ 3,1   SAY "～"+DTOC(MDYE)
  22.     @ 4,1 SAY "年/月/日  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
  23.     @ 5,1 SAY "------------------------------------------------------------------------------"
  24.  STORE 6 TO MGYOU
  25.  DO WHILE MGYOU<56 .AND. .NOT. EOF() && *******************2
  26.  
  27.   IF MMDDYY>MDYE
  28.     EXIT
  29.   ENDIF
  30.  
  31.     @ MGYOU,1  SAY MMDDYY
  32.     @ MGYOU,11 SAY CALL
  33.     @ MGYOU,20 SAY WAVE
  34.     @ MGYOU,26 SAY FREQ 
  35.     @ MGYOU,32 SAY NAME 
  36.     @ MGYOU,43 SAY ADDRES 
  37.     @ MGYOU,70 SAY JCC_G
  38.     @ MGYOU,76 SAY QSL 
  39.  
  40.     STORE MGYOU+1 TO MGYOU
  41.    ENDIF
  42.   SKIP
  43.  LOOP
  44.  
  45.  ENDDO && **********************************************2
  46.  
  47.   IF MMDDYY>MDYE
  48.     EXIT
  49.   ENDIF
  50.  
  51.  ENDDO && **********************************************1
  52.  
  53. @ 1,1 SAY "    "
  54. SET DEVICE TO SCREEN
  55. RETURN
  56.